home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tttdem51.zip
/
IODEM7.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-02-28
|
977b
|
49 lines
Program TestIO;
{$V-}
Uses Dos, Crt, IOTTT5;
TYPE
String1 = String[1];
CONST
YNChars:set of char = ['y','Y','n','N',#13,#200,#208,#205,#203,#244,#24,#027];
VAR
F1,
F2,
F3,
F4,
F5 : String1;
BEGIN
F1 := 'Y';
F2 := 'Y';
F3 := 'Y';
F4 := 'Y';
F5 := 'Y';
Create_fields(5);
Add_Field(1, 5,2,5,2, 5,5);
Add_Field(2, 1,3,1,3, 6,6);
Add_Field(3, 2,4,2,4, 7,7);
Add_Field(4, 3,5,3,5, 8,8);
Add_Field(5, 4,1,4,1, 9,9);
String_Field(1,F1,'!');
String_Field(2,F2,'!');
String_Field(3,F3,'!');
String_Field(4,F4,'!');
String_Field(5,F5,'!');
Field_Rules(1,JumpIfFull,YNChars,[#0]);
Field_Rules(2,JumpIfFull,YNChars,[#0]);
Field_Rules(3,JumpIfFull,YNChars,[#0]);
Field_Rules(4,JumpIfFull,YNChars,[#0]);
Field_Rules(5,JumpIfFull,YNChars,[#0]);
Allow_Esc(True);
ClrScr;
Process_Input(1);
ClrScr;
Writeln(F1);
Writeln(F2);
Writeln(F3);
Writeln(F4);
Writeln(F5);
END.